20 REM BY BREIT NIGHT - 20.09.1998
21 REM DISTRIBUTED BY B-SOFT
22 REM
23 REM BRIGHT NIGHT ARE:
24 REM MR. JOKER AND JACK THE RAPPER
25 REM
51 POKE53281,5:POKE53280,7:PRINT"[147][144]":Z$=CHR$(34)
61 PRINT"      ***** *** **  ***   * *****"
71 PRINT"      * * * * * * * *       * * *"
81 PRINT"      * * * *** * * **    * * * *"
91 PRINT"      * * * * * * * *     * * * *"
101 PRINT"      * * * * * **  ***   * * * *"
111 PRINT," S * U * F * F * 6"
121 GOSUB511
131 PRINT" DU, NUR DU, BIST EINE [156]LILA[144] SCHMERZEN-"
141 PRINT" DE FRAU UND MEISTERST DEIN LEBEN WIE"
151 PRINT" EINE "Z$"AUF EINER KRUECKE BROT"Z$"-MASCHINE.";
161 PRINT" DAS WAERE JA AUCH KEIN PROBLEM, DOCH DU";
171 PRINT" WILLST DIR DEIN LEBEN NICHT VERSAUEN."
181 PRINT" UND NUR AUS DIESEM GRUND TUST DU:"
191 PRINT" (1) SAUBER WERDEN"
201 PRINT" (2) DIR 'NEN HAUFEN CHILI INNE PUPERZE"
211 PRINT"     STECKEN"
221 PRINT" (3) EIN FROSH SEIN"
231 GOSUB511
241 IFA$<>"3"THEN461
251 PRINT"[147] JA JAAAAA! DU HOPPELST SO MIT DEINEN"
261 PRINT" EROTISCHEN FROSHTSCHEINKEARLN DURCH'N"
271 PRINT" WALD UND HOERST PLOETZLICH EINE AUTO-"
281 PRINT" ALARMANLAGE, DIE SICH ANHOERT, WIE EINE";
291 PRINT" MIT DER SOUND COLLECTION ERSTELLTE GE-"
301 PRINT" RAEUSCHKULISSE DES OKTOBERFESTES. PROL-";
311 PRINT" LIGERWEISE IST DIR DAS NATUERLICH MAS-"
321 PRINT" SIG PEINLICH, ALSO WIE KOMMST DU DA"
331 PRINT" 'RAUS?"
341 PRINT" (1) BEHAUPTEN, VOLL BEGABELT ZU SEIN"
342 PRINT" (2) JEDE MENGE CHILI INNE PUPERZE":PRINT"     STECKEN"
343 PRINT" (3) EINFACH NACH HAUSE GEHEN"
344 GOSUB511
345 IFA$<>"3"THEN461
350 PRINT"[147] ZU HAUSE ERWARTET DICH DER HANS MEISER"
351 PRINT" UNTER LACTOSE-DIAET. DU FICKST IHM IN"
361 PRINT" DEN ARSCH, DOCH ER WILL NICHT SO"
371 PRINT" RECHT. WIE KRIEGST DU IHN DOCH NOCH"
381 PRINT" 'RUM?"
391 PRINT" (1) EYIHOEHOHHOEOH"
401 PRINT" (2) "Z$"RANTAPLAN IST EIN KLEINE DRECKIGE"
411 PRINT"     RATTE"Z$" SCHREIEN"
421 PRINT" (3) RATTATAZONG! RATTATAZONG! RATTATA-"
431 PRINT"     ZONG! WEG IST DER BALKON"
441 GOSUB511
451 IFA$="4"THEN500
461 PRINT"[147]         ***********   *****"
471 PRINT"           *     *    *     *"
481 PRINT"           *     *    *     *"
491 PRINT"        *     ******     *"
492 GOSUB511:RUN
500 PRINT"[147]"
501 R=INT(16*RND(1)):PRINT"    ES GIBT NUR EINEN RUDI VOELLER!"
502 POKE53280,R:GOTO501
511 GETA$:IFA$=""THEN511
521 RETURN